<%option explicit%>
<%
Response.Expires=-100
Response.Buffer=false
%>
<html>
<head>
<LINK rel="stylesheet" type="text/css" href="../Styles/Manuales.css">
<script language="javascript">

function Inicio()
{
	data.style.display="block";
	msg.style.display="none";
	GHO.style.filter='alpha(opacity=40,enabled=1)';
	GBK.style.filter='alpha(opacity=40,enabled=1)';
	//Oculta el mensaje de Aguarde en los menues superiores
	window.top.window.frames(0).document.all.divMensaje.style.display = "none"

}

function op(archivo)
{
  unescape(archivo);
  var sFile="<%=Application("path_archivos")%>"+archivo;
  parent.frames[0].BAJAR(sFile);
}

function DownloadFile(filePath){
	var downloadPage = "download.asp?filePath=" + filePath;
	window.document.all.frmDownload.src = downloadPage;
}

function IR(folder)
{
	window.top.window.frames(0).document.all.divMensaje.style.display = "block";
	var ruta="archivos.asp?r="+folder;
	window.location.href=ruta;
}

function Jump(donde)
{
	window.top.window.frames(0).document.all.divMensaje.style.display = "block";
	window.location.href="archivos.asp?b="+donde;
}

</script>
</head>
<body onLoad="Inicio();" style="scroll:no; overflow:hidden">
<div id="img" style="LEFT: 2px; TOP: 7px; POSITION: absolute; Z-INDEX: 0; width: 300px; height: 200px;; visibility: visible; overflow:none" bgcolor="black"> 
  <img SRC="../images/Fondo1.jpg" WIDTH="268" HEIGHT="182" align="left">
</div>
<div id="msg" style="Z-INDEX: 1; LEFT: 0px; POSITION: absolute; TOP: 150px; width:100%" align="center">
<h1 align="center">Recuperando datos !!!</h1>
</div>
<div id="BK" style="LEFT: 110px; TOP: 11px; POSITION: absolute; Z-INDEX: 1; width: 34px; height: 34px;display=none; overflow:none" bgcolor="#7a81c6"> 
  <img name="GBK" SRC="../images/back.gif" alt="Anterior" onClick="Jump('A');" onMouseOver="this.style.filter='alpha(opacity=100,enabled=0)';" onMouseOut="this.style.filter='alpha(opacity=40,enabled=1)';" WIDTH="32" HEIGHT="32">
</div>
<div id="HOM" style="LEFT: 70px; TOP: 11px; POSITION: absolute; Z-INDEX: 1; width: 34px; height: 34px;display=none; overflow:none" bgcolor="#7a81c6"> 
  <img name="GHO" SRC="../images/casa.gif" alt="Inicio" onClick="Jump('H');" onMouseOver="this.style.filter='alpha(opacity=100,enabled=0)';" onMouseOut="this.style.filter='alpha(opacity=40,enabled=1)';" WIDTH="32" HEIGHT="32">
</div>
<%
dim path_archivos, archivo,path_logico, l_ruta2,app_path
path_archivos=application("path_archivos")
app_path=mid(Request.ServerVariables("SCRIPT_NAME"),1,Instr(2, Request.ServerVariables("SCRIPT_NAME"), "/"))
dim oFSO
dim ruta, s, nodo
nodo=Request.QueryString("r")
dim b
b=Request.QueryString("b")
select case b
	case "H"
		ruta=Application("root")
	case "A"	
		ruta=session("path_actual")
		l_ruta2=len(ruta)
		dim char, MyChar
		char=l_ruta2
		do while char>0
			char=char-1
			MyChar= mid(ruta,char,1)
			if MyChar="\" then
				char=char-1
				ruta=mid(ruta,1,char)
				char=0						
			end if
		loop	
	case else			
		if len(nodo)<1 then
			ruta=Application("root") 
		else
			ruta=session("path_actual")&"\"&nodo
		end if	
end select 	
session("path_actual")=ruta
l_ruta2=len(Application("root"))
set oFSO = server.CreateObject("Scripting.FileSystemObject")
dim fila, archivo_fisico
fila=0
if oFSO.FolderExists(ruta) then
s = s &"<table border=0 cellspacing='0' cellpadding='0' width='80%'>" & _
 getfolder(ruta) & "</td></tr></table>" & CHR(13)
set oFSO = nothing
end if

function getfolder (ByVal ruta1)
	dim s2, folder, sf2, thefolder, foldername,f
	Set f = oFSO.GetFolder(ruta1)
	if oFSO.FolderExists(ruta1) then
		Set sf2 = f.SubFolders
		for each folder in sf2
			fila=fila+1
			foldername=folder.name
			thefolder=ruta1&"\"&foldername
			's2 = s2 &"<tr><td onclick=" & chr(34) & "IR(escape('" & foldername & "'));" & chr(34) & " valign='top' class='folder' onmouseover=this.class=" & chr(34) & "folder_on" & chr(34) & "; onmouseout=this.class=" & chr(34)& "folder" & chr(34) & ";>"& _
			 's2 = s2 &"<tr><td onclick=" & chr(34) & "IR(escape('" & foldername & "'));" & chr(34) & " valign='top' class='folder' onmouseover=this.style.background=" & chr(34) & "#336699" & chr(34) & "; onmouseout=this.style.background=" & chr(34) &  chr(34) & ";>"& _
			 s2 = s2 &"<tr><td onclick=" & chr(34) & "IR(escape('" & foldername & "'));" & chr(34) & " valign='top' class='folder' onmouseover=this.className=" & chr(34) & "folder_on" & chr(34) & "; onmouseout=this.className=" & chr(34) & "folder" & chr(34) & ";>"& _
			foldername & _
			"</td></tr>" & CHR(13)
		next
		dim fc, file, thefile, LenFile
		Set fc = f.Files
		s2 = s2 &"<tr><td>" & CHR(13)
		For Each file in fc
			thefile=file.name
			path_logico = mid(ruta1&"/"&thefile,l_ruta2+2)
			'archivo=path_logico'&"/"&thefile
			archivo_fisico=ruta1&"\"&thefile	
			'archivo=app_path&"doc/"&path_logico'&"/"&thefile
			archivo="doc/"&path_logico '&"/"&thefile
			archivo = replace(archivo,"\","/")',5)			
			if oFSO.FileExists(archivo_fisico) then
				's2 = s2 & "<li class='archivos'  onmouseover=this.class=" & chr(34) & "archivos_on" & chr(34) & "; onmouseout=this.class=" & chr(34) & "archivos" & chr(34) & "; onclick='op(escape("&chr(34)& archivo & chr(34)&"));'>"& thefile & chr(13) '
				 
				's2 = s2 & "<li class='archivos'  onmouseover=this.className=" & chr(34) & "archivos_on" & chr(34) & "; onmouseout=this.className=" & chr(34) & "archivos" & chr(34) & ";>"&chr(13)&"<A href="&chr(34)& archivo & chr(34)&" onclick=window.open(this.href,'NEW','',1);>"& thefile & "</a>" &chr(13) '
				 s2 = s2 & "<li class='archivos'  onmouseover=this.className=" & chr(34) & "archivos_on" & chr(34) & "; onmouseout=this.className=" & chr(34) & "archivos" & chr(34) & "; onclick=DownloadFile("&chr(34)& escape(archivo) & chr(34)&");>"& thefile & chr(13) '
			else
				s2 = s2 & archivo_fisico & "<br>"
			end if
		next
		s2 = s2 &"</td></tr>" & CHR(13)
	end if	
	getfolder=s2
end function
%>
<div id="encabe" style="LEFT: 0px; TOP:7px; POSITION:absolute; Z-INDEX:0; width:100%; height: 40px; overflow:hidden; display:block" align="center"> 
	<table border="0" width="100%">
	<tr>
	<td class="tit_col" height="38px" align=center>
		<TABLE WIDTH=60%><TR><td class="tit_col">
			<%=ucase("MANUALES: " & mid(ruta,l_ruta2+2))%>
		</td></tr></table>	
	</td>
	</tr>
	</table>
</div>
<div id="data" style="LEFT: 0px; TOP:60px; POSITION:absolute; Z-INDEX: 2; width:100%; height: 480px; overflow:auto; display:none" align="center"> 
<%Response.Write s%>
</div>
<%if Application("root")<>ruta then%>

<script language="javascript">
BK.style.display="block";
HOM.style.display="block";
</script>
<%end if%>
<iframe id="frmDownload" name="frmDownload" style="display:none"></iframe>
</body>
</html>
